#version unofficial MegaPov 0.7;

#include "colors.inc"

#include "STONES.INC"   // Binding include-file for STONES1 and STONES2
#include "STONES1.INC"  // Great stone-textures created by Mike Miller
#include "STONES2.INC"  // More, done by Dan Farmer and Paul Novak



global_settings
{
  assumed_gamma 1.0
}

// ----------------------------------------
camera
{
  location  <0.0, 2, -4.0>
  direction 1.5*z
  right     4/3*x
  look_at   <0.0, 1,  0.0>
}

sky_sphere
{
  pigment
  {
    bozo  turbulence 1.0
    color_map { [0.0 color rgb 0] [1.0 color rgb .5] }
  scale.1}
}




#declare MountFunc = function{"ridgedMF" <0.9, 2, 5, 0.75, 2>}
#declare MBase =
isosurface{
  function { y - MountFunc(x,0,z)}
  eval

 max_gradient 50
  contained_by{box{<-10,-1,-10>,<10,4,10>}}
  hollow
pigment { rgbt <1,1,1,1> }
finish { ambient 0 diffuse 0 }
interior {
media {
emission { 2, 1 }
method 3
intervals 5
samples 10,10
density {
gradient y*(20)
colour_map {
[0 rgb 0]
[0.5 rgb <0.1,0,0>]
[0.9 rgb <0.9,0.9,0>]
[1 rgb 1]
}
}
}
}
}

object{MBase  }

Post a reply to this message